home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / FPCIMB.SRC < prev    next >
Text File  |  1990-11-06  |  6KB  |  294 lines
  1. ;\|
  2. ;FPCIMB.SRC     Translated from FPCIMB.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  10:28:03 AM  18/ 6/90   |
  4.     define(RESULT|A|1||)
  5.     define(Q_END|S|8||)
  6.     define(IN_BY|S|8||)
  7.     define(3_POS|N|1||)
  8.     define(MAX_CTR|N|3||)
  9.     define(FLAG|N|1||)
  10.     define(PER_CTR|N|3||)
  11.     define(M_POS|N|1||)
  12.     define(DOB1|S|8||)
  13.     define(GP_CODE|A|4||)
  14.     define(GMS|A|1||)
  15.     define(DOB2|S|8||)
  16.     define(MEM_DOC|N|1||)
  17.     define(NO_CTR|N|4||)
  18.     define(YES_CTR|N|4||)
  19.     define(TOTX_CTR|N|3||)
  20.     define(TOT_CTR|N|4||)
  21.     define(B_CTR|N|3||)
  22.     define(3_TOT|N|3||)
  23.     define(PERCENT|N|5|2|)
  24.     define(TO_DATE|S|8||)
  25.     define(PCENT|N|5|2|)
  26.     define(PERT|N|3||)
  27.     define(PER|N|1||)
  28.     define(DOC_NAME|A|23||)
  29.     define(NO_CTR|N|3||)
  30.     define(MEM_PER|S|8||)
  31.     define(TD|S|8||)
  32.     date(TD|G)
  33.     open(GPSETUP||0|)
  34.     open(PATIENT||0|)
  35.     open(RECALLS||0|)
  36.     open(IMDATE||0|)
  37.     open(MEMORY||0|)
  38. START:
  39.     mount(NEWS|S)
  40.     find(B|MEM_NAME||)
  41.     TO_DATE = (MEM_TO_DATE)
  42.     IN_BY = (MEM_IN_BY)
  43.     Q_END = (MEM_Q_END)
  44. CONTIN:
  45.     DOB1 = (TO_DATE-2191)
  46.     DOB2 = (TO_DATE-1826)
  47.     MEM_DOC = (1)
  48.     trap(I|G|EXIT2)
  49.     gosub MOUNT
  50. STARTER:
  51.     find(B|HEADING||)
  52.     DOC_NAME = (RPDOCTOR[MEM_DOC])
  53.     if MEM_DOC = (1) then GP_CODE = ("V4")
  54.     if MEM_DOC = (2) then GP_CODE = ("G44")
  55.     if MEM_DOC = (3) then GP_CODE = ("P21")
  56.     if MEM_DOC = (4) then GP_CODE = ("N16")
  57.     trap(P|S|SHEADING)
  58.     ptof
  59.     DATE.OF.BIRTH = (DOB1)
  60.     find(G|DATE.OF.BIRTH|EXIT|)
  61. TEST:
  62.     pmsg(RECORD.NUMBER|1|1|N|N|S|)
  63.     if DOCTOR <> (MEM_DOC) goto NEXT
  64.     if DATE.OF.BIRTH > (DOB2) goto EXIT
  65.     gosub FINDREC
  66. NEXT:
  67.     find(N|PATIENT|EXIT|)
  68.     goto TEST
  69. FINDREC:
  70.     COD.REF = (RECORD.NUMBER)
  71.     find(M|COD.REF|NOCOD|)
  72.     IMDATE.COD = (COD.REF)
  73.     find(M|IMDATE.COD|NO_IMDATEX|)
  74. NO_IMDATE:
  75.     GMS = ("")
  76.     if IMDATE5 > (0) then GMS = ("Y")
  77.     gosub MONTH
  78.     pfmt(13|||N|N|)
  79.     if IMDATE5 > (0) then B_CTR = (B_CTR+1)
  80.     TOT_CTR = (TOT_CTR+1)
  81.     MEM_PER = (0)
  82.     clr(IMDATE|B)
  83.     clr(RECALLS|B)
  84.     ret
  85. NOCOD:
  86.     clr(IMDATE|B)
  87.     clr(RECALLS|B)
  88.     pfmt(14|||N|N|)
  89.     pops
  90.     goto NEXT
  91. SHEADING:
  92.     pfmt(1|||N|N|)
  93.     pfmt(2|||N|N|)
  94.     pfmt(3|||N|N|)
  95.     pfmt(4|||N|N|)
  96.     pfmt(5|||N|N|)
  97.     pfmt(6|||N|N|)
  98.     pfmt(7|||N|N|)
  99.     pfmt(8|||N|N|)
  100.     pfmt(9|||N|N|)
  101.     pfmt(10|||N|N|)
  102.     pfmt(11|||N|N|)
  103.     pfmt(12|||N|N|)
  104.     pblnk(1)
  105.     ret
  106. MOUNT:
  107.     pchr(P|4)
  108.     mount(NEW1|R|P)
  109.     pset(132|70|66)
  110.     pchr(P|1)
  111.     ret
  112. EXIT:
  113.     pfmt(10|||N|N|)
  114.     pfmt(19|||N|N|)
  115.     pblnk(1)
  116.     pfmt(16|||N|N|)
  117.     pfmt(17|||N|N|)
  118.     pfmt(18|||N|N|)
  119.     gosub LASTPAGE
  120.     B_CTR = (0)
  121.     TOT_CTR = (0)
  122.     GP_CODE = ("")
  123.     FLAG = (0)
  124.     MEM_DOC = (MEM_DOC+1)
  125.     if MEM_DOC > (4) goto EXIT2
  126.     goto STARTER
  127. EXIT2:
  128.     run("recmenu")
  129. NO_IMDATEX:
  130.     clr(IMDATE|B)
  131.     pfmt(15|||N|N|)
  132.     pops
  133.     goto NEXT
  134. MONTH:
  135.     if FLAG = (1) goto MONTH2
  136.     if FLAG = (2) goto MONTH3
  137.     if FLAG = (3) ret
  138.     if DATE.OF.BIRTH > (DOB1+91) do
  139.         {
  140.         pfmt(10|||N|N|)
  141.         FLAG = (1)
  142.         }
  143. MONTH2:
  144.     if DATE.OF.BIRTH > (DOB1+182) do
  145.         {
  146.         pfmt(10|||N|N|)
  147.         FLAG = (2)
  148.         }
  149. MONTH3:
  150.     if DATE.OF.BIRTH > (DOB1+273) do
  151.         {
  152.         if FLAG = (3) ret
  153.         pfmt(10|||N|N|)
  154.         FLAG = (3)
  155.         }
  156.     ret
  157. LASTPAGE:
  158.     trap(P|D)
  159.     ptof
  160.     pfmt(1|||N|N|)
  161.     pblnk(1)
  162.     pfmt(2|||N|N|)
  163.     pfmt(3|||N|N|)
  164.     pfmt(4|||N|N|)
  165.     pfmt(20|||N|N|)
  166.     pblnk(1)
  167.     pfmt(10|||N|N|)
  168.     pblnk(1)
  169.     pfmt(21|||N|N|)
  170.     pfmt(22|||N|N|)
  171.     pblnk(1)
  172.     pfmt(23|||N|N|)
  173.     pfmt(24|||N|N|)
  174.     pfmt(25|||N|N|)
  175.     pfmt(26|||N|N|)
  176.     pfmt(27|||N|N|)
  177.     pfmt(28|||N|N|)
  178.     pfmt(29|||N|N|)
  179.     pblnk(3)
  180.     pfmt(30|||N|N|)
  181.     pblnk(1)
  182.     pfmt(31|||N|N|)
  183.     pblnk(6)
  184.     pfmt(10|||N|N|)
  185.     pfmt(16|||N|N|)
  186.     pfmt(17|||N|N|)
  187.     pfmt(18|||N|N|)
  188.     ptof
  189.     ret
  190. \STNEWS    
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.                  FPC TARGET PRINT OUTS 12" PAPER
  199.              ╔═══════════════════════════════════════╗
  200.              ║             FPC TARGET DATE:&         ║
  201.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  202.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  203.              ╚═══════════════════════════════════════╝
  204.                                ESC-EXIT
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215. \
  216. TO_DATE
  217. DOB1
  218. DOB2
  219. \
  220. \R NEW1    
  221.                                             NORTH YORKSHIRE FAMILY PRACTITIONER COMMITTEE
  222.                                                   PRE-SCHOOL BOOSTER TARGETS
  223.                                                    PATIENT COUNT AS AT &
  224.                                                          Printed  &
  225. Listed below are patients for whom a Target payment may be due at the quarter ending &        according to their immunisation status
  226. as at &       .
  227. Please enter the date of each completing immunisation of the Diptheria,Tetanus and Polio booster. If the completing booster was
  228. administered under General Medical Services, please tick the box "As  Gms". Forms should be returned to your responsible
  229. FPC by 01.08.90 in order for payment to be made.
  230. ------------------------------------------------------------------------------------------------------------------------------------
  231. Capitation Age 5
  232. Patient's Name                 D.o.B.          Nhs.Num         Pre_School  GMS
  233. &                              &               &               [&       ]  [&]
  234. &                            NO RECALL
  235. &                            NO IMDATE
  236. &
  237. &
  238. &
  239.                                               TOTALS   [&   ]    [&  ]   [&  ]
  240.                                          Payment due quarter ending &         : Forms to FPC by : &
  241.                                  I certify that the number of patients indicated have been immunised and
  242.                                  I claim the appropriate fee for those patients as summarised below:-
  243.                                                      Pre School       As
  244.                                                       Booster         GMS
  245.         North Yorkshire                                [&  ]       [&  ]
  246.           FPC
  247.                                                        -----------------
  248.                                         TOTAL          [&  ]       [&  ]
  249.                                                        -----------------
  250.           Signature of Doctor...................................................
  251.                          Date...................................................   Code Number :
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269. \
  270. TO_DATE
  271. TD
  272. Q_END
  273. TO_DATE
  274. PATIENT.NAME
  275. DATE.OF.BIRTH
  276. NHS.NUM
  277. IMDATE5
  278. GMS
  279. PATIENT.NAME
  280. PATIENT.NAME
  281. DOC_NAME
  282. AD1
  283. AD2
  284. TOT_CTR
  285. B_CTR
  286. B_CTR
  287. Q_END
  288. IN_BY
  289. B_CTR
  290. B_CTR
  291. B_CTR
  292. B_CTR
  293. \
  294.